home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / mail / mh / contrib / audit / mh.pl < prev    next >
Encoding:
Text File  |  1992-11-19  |  3.8 KB  |  189 lines
  1.  
  2.  
  3. # =====
  4. # Subroutine mh_profile
  5. #    Parse the user's .mh_profile and get arguments and settings
  6. #
  7. sub mh_profile {
  8.     local($PROFILE);
  9.  
  10.     ($PROFILE = $ENV{"MH"}) || ($PROFILE = $ENV{"HOME"} . "/.mh_profile");
  11.  
  12.     open PROFILE || "$0: can't read mh_profile $PROFILE: $!\n";
  13.  
  14.     while (<PROFILE>) {
  15.     next if /^#/;
  16.     next unless ($key, $value) = /([^:\s]+):\s*(.+)/;
  17.     $key =~ tr/A-Z/a-z/;
  18.     $MH{$key} = $value;
  19.     } 
  20.     close PROFILE;
  21.  
  22.     $MH{'path'} = $ENV{'HOME'} . '/' . $MH{'path'};
  23. } 
  24.  
  25.  
  26. # =====
  27. # Subroutine rcvstore
  28. #    Convenience routine for MH users. Pipes incoming
  29. #    mail message to rcvstore. Expects one argument - the 
  30. #    name of the folder to rcvstore into.
  31. #
  32. sub rcvstore {
  33.     local($folder) = @_;
  34.  
  35.     &openpipe("/usr/local/bin/mh/lib/rcvstore +$folder -create");
  36. }
  37.  
  38.  
  39. # =====
  40. # Subroutine rcvdist
  41. #    Convenience routine for MH users. Pipes incoming
  42. #    mail message to rcvdist. Expects one argument - the 
  43. #    list of users to distribute the mail message to
  44. #
  45. sub rcvdist {
  46.     local($recips) = @_;
  47.  
  48.     &openpipe("/usr/local/bin/mh/lib/rcvdist $recips");
  49. }
  50.  
  51.  
  52. # =====
  53. # Subroutine rcvtty
  54. #    Convenience routine for MH users. Pipes incoming
  55. #    mail message to rcvtty. This is MH's version of biff.
  56. #
  57. sub rcvtty {
  58.  
  59.     &openpipe("/usr/local/bin/mh/lib/rcvtty");
  60. }
  61.  
  62.  
  63. # =====
  64. # Subroutine ali
  65. #       Expand an MH alias into a list of names usable by
  66. #       rcvdist
  67. #
  68. sub ali {
  69.     local($alias) = @_;
  70.     local($recips); 
  71.     local(@list) = ();
  72.  
  73.     $recips = `/usr/local/bin/mh/ali $alias`;
  74.     chop $recips;
  75.     return(@list) if ($alias eq $recips);
  76.  
  77.     @list = split(/,/, $recips);
  78.     return(@list);
  79. }
  80.  
  81.  
  82. # =====
  83. # Subroutine refile_from
  84. #    Refile a message into a folder by organization and 
  85. #    sender name. The top-level folder is an argument
  86. #    the user can specify.
  87. #
  88. sub refile_from {
  89.     local($toplevel) = @_;
  90.  
  91.     return if (length($from) <= 0);
  92.     return if ($from eq $user);
  93.  
  94.     $toplevel = "log" if ($toplevel eq '');
  95.     &rcvstore("$toplevel/$organization/$from");
  96. }
  97.  
  98. # =====
  99. # Subroutine make_mhpath
  100. #    Make a directory path recursively. 
  101. #
  102. sub make_mhpath {
  103.     local($dir) = @_;
  104.     local($i);
  105.     local($mode) = 0755;
  106.  
  107.     $mode = oct($MH{'folder-protect'}) if (defined $MH{'folder-protect'});
  108.  
  109.     $_ = $dir;
  110.     s#^/.*#/# || s#^[^/].*#.#;
  111.     $start = $_;
  112.     foreach $i (split('/', $dir)) {
  113.     $start = $start . '/' . $i;
  114.     next if (-d $start);
  115.     mkdir($start, $mode) || return(1);
  116.     };
  117.  
  118.     return(0);
  119. } 
  120.  
  121.  
  122. # =====
  123. # Subroutine mh_parse
  124. #    Parse the command line options
  125. #
  126. sub mh_parse {
  127.     local(@argdesc) =  @SW;
  128.     local($wantarg);
  129.  
  130.     while (($#ARGV >= 0) && ($ARGV[0] !~ /^-.+/)) { # must be a message list
  131.     push(@MSGS, shift @ARGV);
  132.     };
  133.  
  134.     grep(s/(\W)/\\$1/g, @argdesc);
  135.  
  136.     @ARGV = (split(' ', $MH{$program}), @ARGV) if defined($MH{$program});
  137.  
  138.     return if ($#ARGV < 0);
  139.  
  140.     while ($ARGV[0] =~ /^-.+/) {
  141.  
  142.         $ARGV = shift @ARGV;
  143.  
  144.         unless (@matches = grep(/$ARGV/, @argdesc)) {
  145.             print "$program: unknown option: $ARGV\n";
  146.             exit 1;
  147.             &usage;
  148.         } 
  149.  
  150.         for (@matches) { s/\\(\W)/$1/g; } 
  151.  
  152.         if ($#matches > $[) {
  153.             print "$program: ambiguous switch $ARGV matches:\n";
  154.             for (@matches) { 
  155.                 print "\    ", $_, "\n"; 
  156.             }
  157.             exit 1;
  158.         } 
  159.  
  160.         ($switch,$wantarg) = $matches[$[] =~ /^-(\S+)\s*(\S*)/;
  161.  
  162.         $SW{$switch} = $wantarg ? shift @ARGV : 1;
  163.         if ($SW{$switch} =~ /^(['"]).*$/ && $SW{$switch} !~ /^(['"]).*\1$/) {
  164.             do {
  165.                 $SW{$switch} .= ' ' . (shift @ARGV);
  166.             } until $#ARGV < 0 || $SW{$switch} =~ /^(['"]).*\1$/;
  167.             $SW{$switch} =~ s/^(['"])(.*)\1$/$2/;
  168.         } 
  169.     }
  170. }
  171.  
  172.  
  173. # =====
  174. # Subroutine print_switches
  175. #    print the valid command line switches
  176. #
  177. sub print_switches {
  178.     local(@argdesc) = @SW;
  179.  
  180.     print "   switches are:\n";
  181.     for (sort @SW) {
  182.     print "   $_\n";
  183.     };
  184.     print "\n";
  185. }
  186.  
  187.  
  188. 1;
  189.